home *** CD-ROM | disk | FTP | other *** search
/ Practical Internet 2002 February / Practical Internet February 2002.iso / pc / Software / SiteBuilding / HomeSite_Installer.exe / data1.cab / Extensions / Includes / tdCalcLFWidth.wizml < prev    next >
Encoding:
Text File  |  2001-10-11  |  844 b   |  23 lines
  1. <WIZIF 0>
  2.     <!-- Copyright  (c) 1997-2001 Macromedia, Inc. All Rights Reserved. Consult Software License Agreement for more details.  Version 1.0 - 2001-05-25 -->
  3.     Input:     var = value copied from that entered in UI for width; assumed to be numeric here
  4.     Output: LFWIDTH attribute with value based on dropWidth - if var > 0
  5. </WIZIF>
  6.  
  7. <WIZIF var GT 0>
  8.     <WIZSET factWidth  = 1.20>
  9.  
  10.     <WIZSET LFWidth = (var * factWidth)>
  11.     <WIZSET PosDecPt = Find(LFWidth,'.')>
  12.     <WIZIF PosDecPt EQ 0 AND Find(LFWidth,',')><WIZSET PosDecPt = Find(LFWidth,',')></WIZIF>
  13.     <WIZIF PosDecPt GT 0>
  14.         <WIZIF Mid(LFWidth,PosDecPt + 1,1) GT 4>
  15.             <WIZSET LFWidth = Left(LFWidth,PosDecPt - 1) +1>
  16.         <WIZELSE>
  17.             <WIZSET LFWidth = Left(LFWidth,PosDecPt - 1)>
  18.         </WIZIF>
  19.     </WIZIF>
  20.  
  21.     <WIZIF 1>$$SpacingGap$${DefaultCase('LFWIDTH')}=$$LFWidth</WIZIF>
  22. </WIZIF>
  23.